home *** CD-ROM | disk | FTP | other *** search
/ Cerilica Vantage Pre-Release / Cerilica Vantage Pre-Release - Disc 1.iso / vantag.arc / !Vantage_PS_Procs < prev    next >
Encoding:
Text File  |  1999-05-11  |  4.5 KB  |  206 lines
  1. %%BeginResource: procset Cerilica_VantageProcs 0.62 0
  2. %%Title: (Vantage Procedures)
  3. %%Version: 0.62 0
  4. %%CreationDate: (99/4/7) ()        % (7-Apr-1999)
  5. %%Copyright: ((C) 1996 Cerilica All Rights Reserved)
  6. %%Author: (Simon Birtwistle)
  7. /D4Dict 40 dict def
  8. D4Dict begin
  9.  
  10. /D4PageSize {                % <width> <height> D4PageSize
  11.     /setpageparams where {
  12.         pop
  13.         0 1 4 -1 roll /measure where {
  14.             measure 2 copy ge {exch} if pop
  15.         } if
  16.         4 1 roll setpageparams
  17.     } {
  18.         /setpagedevice where {
  19.             pop
  20.             4 dict dup begin 3 1 roll
  21.             [ 3 1 roll ] /PageSize exch def
  22.             /Orientation 0 def
  23.             /ImagingBBox null def
  24.             /Policies 1 dict dup begin /PageSize 6 def end def
  25.             end setpagedevice
  26.         } {pop pop} ifelse
  27.     } ifelse
  28.     }def
  29.  
  30. /D4Range {                % <value> <low> <high> D4Range
  31.     3 1 roll 2 copy lt {exch} if
  32.     pop 2 1 roll 2 copy gt {exch} if
  33.     pop
  34.     }bind def
  35.  
  36.                     % <size> <ang> {D4Spot<n>} setscreen
  37. /D4Spot0 {                % Round spot
  38.     abs exch abs 2 copy add 1
  39.     gt { 1 sub dup mul exch
  40.          1 sub dup mul add 1
  41.        }
  42.        { dup mul exch
  43.          dup mul add 1 exch
  44.        } ifelse sub
  45.     }def
  46.  
  47. /D4Spot1 {                % Square spot
  48.     dup mul exch dup mul 2 copy gt {exch} if pop
  49.     }def
  50.  
  51. /D4Spot2 {                % Elliptical spot
  52.     dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub
  53.     }def
  54.  
  55. /D4Spot3 {                % Straight line spot
  56.     pop dup mul
  57.     }def
  58.  
  59. /D4Spot4 {                % Crosshatch spot
  60.     dup mul exch dup mul 2 copy lt {exch} if pop
  61.     -1 1 D4Range
  62.     }def
  63.  
  64. /D4GAM 1.0 def
  65. /D4MAX 1.0 def
  66. /D4MIN 0.0 def
  67.  
  68. /D4Transfer {            % <highlight%> <shadow%> <gamma> D4Transfer
  69.     D4Dict begin
  70.     /D4GAM exch def
  71.     100.0 div /D4MAX exch def
  72.     100.0 div /D4MIN exch def
  73.     end
  74.     [
  75.     { 1.0 exch sub
  76.       dup dup 0 ne exch 1 ne
  77.       and { D4GAM exp
  78.         D4MAX D4MIN sub mul
  79.         D4MIN add
  80.         0 1 D4Range
  81.       } if
  82.       1.0 exch sub
  83.     } /exec load currenttransfer /exec load ] cvx settransfer
  84.     }bind def
  85.  
  86. /D4ST 0 def
  87. /D4STjoin 1 def
  88. /D4STshow /show load def
  89. /D4STashow /ashow load def
  90. /D4STwidthshow /widthshow load def    % not used by PDriverPS
  91. /D4STawidthshow /awidthshow load def
  92. /D4STkshow /kshow load def
  93.  
  94. /D4STset {                % <strokewidth> <linejoin> D4STset
  95.     D4Dict begin /D4STjoin exch def /D4ST exch def end
  96. } bind def
  97.  
  98. /show {                    % (string) show
  99.     D4ST 0 eq {D4STshow} {
  100.      % emulate show using charpath
  101.      currentlinewidth exch 
  102.      D4ST setlinewidth D4STjoin setlinejoin [] 0 setdash
  103.      {(a) dup 0 4 3 roll put
  104.       false charpath
  105.       currentpoint stroke moveto} forall
  106.      setlinewidth
  107.     } ifelse
  108. } bind def
  109.  
  110. /kshow    {                % {proc} (string) kshow
  111.     D4ST 0 eq {D4STkshow} {
  112.      % emulate kshow using show
  113.      dup 0 1 getinterval show
  114.      dup length 1 sub dup 0 gt {
  115.       % inside here if string is longer than 1 char
  116.       1 1 3 2 roll {
  117.        % inside here like inside forall
  118.        dup dup 3 index exch get exch
  119.        3 index exch get 4 index exec
  120.        1 index exch 1 getinterval show
  121.       } for
  122.      } if
  123.      pop pop
  124.     } ifelse
  125. } bind def
  126.  
  127. /ashow {                % x y (string) ashow
  128.     D4ST 0 eq {D4STashow} {
  129.      % emulate ashow using charpath
  130.      currentlinewidth exch 
  131.      D4ST setlinewidth D4STjoin setlinejoin [] 0 setdash
  132.      {(a) dup 0 4 3 roll put
  133.       false charpath
  134.       currentpoint exch 4 index add exch 3 index add
  135.       stroke moveto} forall
  136.      setlinewidth
  137.      pop pop
  138.     } ifelse
  139. } bind def
  140.  
  141. /widthshow {                % cx cy char (string) widthshow
  142.     D4ST 0 eq {D4STwidthshow} {
  143.      % emulate widthshow using charpath
  144.      currentlinewidth exch 
  145.      D4ST setlinewidth D4STjoin setlinejoin [] 0 setdash
  146.      {dup 3 index eq exch
  147.       (a) dup 0 4 3 roll put
  148.       false charpath currentpoint
  149.       3 2 roll {exch 5 index add exch 4 index add} if
  150.       stroke moveto} forall
  151.      setlinewidth
  152.      pop pop pop
  153.     } ifelse
  154. } bind def
  155.  
  156. /awidthshow {                % cx cy char x y (string) awidthshow
  157.     D4ST 0 eq {D4STawidthshow} {
  158.     % emulate awidthshow using charpath
  159.      currentlinewidth exch 
  160.      D4ST setlinewidth D4STjoin setlinejoin [] 0 setdash
  161.      {dup 5 index eq exch
  162.       (a) dup 0 4 3 roll put
  163.       false charpath currentpoint
  164.       exch 5 index add exch 4 index add
  165.       3 2 roll {exch 7 index add exch 6 index add} if
  166.       stroke moveto} forall
  167.      setlinewidth
  168.      pop pop pop pop pop
  169.     } ifelse
  170. } bind def
  171.  
  172. /D4save [] def
  173. /D4stack 0 def
  174. /D4count 0 def
  175.  
  176. /D4BeginEPS{
  177.     /D4save save store
  178.     /D4stack countdictstack store
  179.     /D4count count 7 sub store
  180.     userdict begin
  181.     /showpage{}def
  182.     0 setgray 0 setlinecap
  183.     1 setlinewidth 0 setlinejoin
  184.     10 setmiterlimit []0 setdash newpath
  185.     /languagelevel where{pop
  186.         languagelevel 1 ne{
  187.             false setstrokeadjust false setoverprint
  188.         }if
  189.     }if
  190.     4 index sub exch 5 index sub exch 4 2 roll
  191.     4 index sub exch 5 index sub exch 6 4 roll
  192.     6 array astore concat
  193.     0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto closepath clip
  194.     newpath
  195. }bind def
  196.  
  197. /D4EndEPS{
  198.     count D4count sub{pop}repeat
  199.     countdictstack D4stack sub{end}repeat
  200.     D4save restore
  201. }bind def
  202.  
  203. end
  204. %%EndResource
  205.  
  206.